|
;claris.ttl ; ; ********************************************************************** ; Claris Server Access ; ; サーバー名 サーバータイプ IPアドレス ログイン情報 ; PENGIN redhat 7.3 192.168.1.4 ora817/ora817 ; KIRIN redhat 7.3 192.168.1.3 ora9i/ora9i ; ; write 1.0 2002/07/30 Claris ; ; ********************************************************************** ; ------------------------------------- ; 定数宣言 ; ------------------------------------- ; --------------------------------- ; 変数の初期化 ; --------------------------------- UsernamePrompt = 'login:' PasswordPrompt = 'Password:' ; --------------------------------- ; 各サーバーのIPアドレス設定 ; --------------------------------- IP_PENGIN = '192.168.1.4' IP_KIRIN = '192.168.1.3' ; <ラベル SELECT> :SELECT ; -- 接続サーバー選択処理 inputbox '1:PENGIN 2:KIRIN 3:終了' '接続先のサーバー選択' str2int SelectNo_1 inputstr ; ---------------------------------------------------------------------- ; PENGIN に接続？ ; ---------------------------------------------------------------------- if SelectNo_1 = 1 Then ; <ラベル USER1> :USER1 ; -- 接続サーバー決定 IPアドレス設定 ServerName = IP_PENGIN ; -- 接続するユーザー決定 inputbox '1:ora817 2:その他 3:戻る' 'PENGIN ログインするユーザー決定' str2int SelectNo_1_1 inputstr ; --------------------------------- ; デフォルトユーザーで接続？ ; --------------------------------- if SelectNo_1_1 = 1 Then Username = 'ora817' Password = 'ora817' ; --------------------------------- ; 任意のユーザーで接続？ ; --------------------------------- elseif SelectNo_1_1 = 2 Then ; -- ユーザー名入力 inputbox 'ログインするユーザー名は？' 'ユーザー入力' Username = inputstr ; -- パスワード入力：マスク処理 passwordbox 'ユーザーのパスワードは？' 'パスワード入力' Password = inputstr else ; -- 処理分岐 ラベル SELECTへ（サーバー選択へ戻る） goto SELECT endif ; --------------------------------- ; 最終接続確認 ; --------------------------------- yesnobox 'PENGINに接続しますか？' '接続確認' if result = 1 then ; -- 処理分岐 ラベル LOGINへ goto LOGIN else ; -- 処理分岐 ラベル USER1へ（ユーザー選択へ戻る） goto USER1 endif ; ---------------------------------------------------------------------- ; KIRIN に接続？ ; ---------------------------------------------------------------------- elseif SelectNo_1 = 2 Then ; <ラベル USER2> :USER2 ; -- 接続サーバー決定 IPアドレス設定 ServerName = IP_KIRIN ; -- 接続するユーザー決定 inputbox '1:ora9i 2:その他 3:戻る' 'KIRIN にログインするユーザー決定' str2int SelectNo_1_1 inputstr ; --------------------------------- ; デフォルトユーザーで接続？ ; --------------------------------- if SelectNo_1_1 = 1 Then Username = 'ora9i' Password = 'vofe9395' ; --------------------------------- ; 任意のユーザーで接続？ ; --------------------------------- elseif SelectNo_1_1 = 2 Then ;UsernamePrompt = 'login:' ;PasswordPrompt = 'Password:' ; -- ユーザー名入力 inputbox 'ログインするユーザー名は？' 'ユーザー入力' Username = inputstr ; -- パスワード入力：マスク処理 passwordbox 'ユーザーのパスワードは？' 'パスワード入力' Password = inputstr else ; -- 処理分岐 ラベル SELECTへ（サーバー選択へ戻る） goto SELECT endif ; --------------------------------- ; 最終接続確認 ; --------------------------------- yesnobox 'KIRINに接続しますか？' '接続確認' if result = 1 then ; -- 処理分岐 ラベル LOGINへ goto LOGIN else ; -- 処理分岐 ラベル USER2へ（ユーザー選択へ戻る） goto USER2 endif ; ---------------------------------------------------------------------- ; 終了する？ ; ---------------------------------------------------------------------- elseif SelectNo_1 = 3 Then ; -- 終了指示なので、マクロ終了へ goto FIN else ; -- 処理分岐 ラベル SELECTへ（サーバー選択へ戻る） goto SELECT endif ; ---------------------------------------------------------------------- ; TeraTermの起動を行なう ; ---------------------------------------------------------------------- ; <ラベル LOGIN> :LOGIN ; --------------------------------- ; login処理 ; --------------------------------- connect ServerName if SelectNo_1 = 1 Then ; -- 接続中のタイトル設定 settitle "PENGIN に接続中" ; -- マクロ実行中ターミナルのログ取得とバックアップ（２世代管理） filecopy 'C:\Program Files\TTERMPRO\access_PENGIN.txt' 'C:\Program Files\TTERMPRO\access_PENGIN.bak' logopen 'C:\Program Files\TTERMPRO\access_PENGIN.txt' 0 1 else ; -- 接続中のタイトル設定 settitle "KIRIN に接続中" ; -- マクロ実行中ターミナルのログ取得とバックアップ（２世代管理） filecopy 'C:\Program Files\TTERMPRO\access_KIRIN.txt' 'C:\Program Files\TTERMPRO\access_KIRIN.bak' logopen 'C:\Program Files\TTERMPRO\access_KIRIN.txt' 0 1 endif wait UsernamePrompt sendln Username wait PasswordPrompt sendln Password ; wait #10'>' '$' '%'#13 ; wait '%' ; wait '%' ; pause 1 wait #10'>' '$' '%'#13 sendln 'stty rows 40' ; wait '%' ; pause 1 wait #10'>' '$' '%'#13 sendln 'stty columns 140' ; wait '%' ; pause 1 ; wait #10'>' '$' '%'#13 sendln 'date' :FIN |
||||||||||||||||||||
 |
